home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 September
/
1989-09.d64
/
egg beater
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
925b
|
31 lines
10 poke646,5:poke53280,5:poke53281,0
20 print"[147][176][192][192] [176][201] [221] copyright 1989";
30 print"[171][192][192][213][192][201][213][192][201] [171][177][201][213][192][201][213][192][174][192][219][192][213][192][201][171][192][201] compute!'s ";
40 print"[221] [221] [221][221] [221] [221] [221][171][192][189][221] [221] [221] [171][192][189][221] gazette ";
50 print"[173][192][192][202][192][179][202][192][179] [173][192][203][202][192][203][202][192][177] [203] [202][192][203][221] ";
60 print" [202][192][203][202][192][203] score lives ";
70 print" "
80 poke646,6:forn=1to4:print:print
90 print" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] ":print
100 next:poke646,5:gosub1000:(NULL):b=0
110 forn=0to3:bl(n)=176+2*n:next
120 poke724,0:poke725,0:poke716,5:tm$="000005":ti$="000000"
130 s=256*peek(725)+peek(724):l=peek(716):(NULL)7,bl(b),2,20
140 print" [202][192][203][202][192][203] score lives [145]";
150 printtab(17);s;tab(31);l
160 ifl<1orl>5then220
170 ifl<>peek(716)then130
180 ifs<>(256*peek(725)+peek(724))then130
190 ifti$<tm$then160
200 ti$="000000":b=b+1:ifb>3thenb=0
210 goto130
220 (NULL):gosub1000:print" play again? [y/n]"
230 getk$:ifk$="y"thenrun
240 ifk$><"n"then230
250 print"[147]":end
1000 restore
1010 readn:ifn<0thenreturn
1020 (NULL)6,n:fort=1to80:next:goto1010
1030 data55,57,58,58,57,57,58,64,66,58,58,58
1040 data-1